unit FormAbout_u;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  FMX.Controls.Presentation, FMX.ScrollBox, FMX.Memo, FMX.Objects, FMX.Layouts;

type
  TFormAbout = class(TForm)
    Button_OK: TButton;
    Label_Copyright: TLabel;
    Label2: TLabel;
    Image_wxh: TImage;
    Image_Logo: TImage;
    FlowLayout1: TFlowLayout;
    Image_wyx: TImage;
    Label_Description: TLabel;
    procedure Button_OKClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormAbout: TFormAbout;

implementation

{$R *.fmx}

procedure TFormAbout.Button_OKClick(Sender: TObject);
begin
  Self.Close();
end;

procedure TFormAbout.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //Action:=TCloseAction.caFree;
end;

procedure TFormAbout.FormCreate(Sender: TObject);
begin
  if Screen.Width<460 then
  begin
    Width:=Round(Screen.Width*0.8);
  end
  else Width:=460;
  if Screen.Height<408 then
  begin
    Height:=Round(Screen.Height*0.8);
  end
  else Height:=408;
  Label_Description.Text:=
    'Free software,welcome to deploy.'+#13#10+
    #13#10+
    'Writed by Delphi 10 Seattle.'+#13#10+
    'http://www.Embarcadero.com'+#13#10+
    #13#10+
    'Use "acroprise Multi-Language VCL/FMX Suite" to Surport English,simpified chinese and traditional chinese.'+#13#10+
    'http://www.acroprise.com.cn'+#13#10+
    #13#10+
    'If you need the source code,write mail to me:'+#13#10+
    'mustapha.wang@163.com';
end;

procedure TFormAbout.FormDestroy(Sender: TObject);
begin
  FormAbout:=nil;
end;

end.
